home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / byt87ibm.arc / SAGAN.ARC / MICROSOF.ASM < prev    next >
Assembly Source File  |  1987-06-03  |  3KB  |  102 lines
  1. ;
  2. ; 
  3. MSDOS        EQU    21H    ; Ms dos interrupt call 
  4. MSYSCALL    EQU    51     ; Microsoft system call 
  5. ; 
  6. ; 
  7. ; This is the main entry point 
  8. ; all driver routines take the function call number in BX 
  9. ; 
  10. ;     function 0 = initialize mouse 
  11. ;     function 1 = return button status 
  12. ;     function 2 = return relative motion 
  13. ;     function 3 = de-initialize mouse 
  14. ;     function 4 = return current serial port 
  15. ; 
  16. ; Normally this would be a far procedure but to avoid getting into 
  17. ; all the intricasies of loading and calling drivers I've converted 
  18. ; ENTRY to a near procedure and combined it with the sample program. 
  19. ; 
  20. ENTRY    PROC    NEAR  
  21.     CLD              ; go in the forward direction 
  22.     PUSH    DS        ; save callers segment 
  23.     PUSH    CS        ; make this segment addressable 
  24.     POP    DS 
  25.     SHL    BX,1        ; point to routine 
  26.     CALL    ROUTINES[BX]    ; and call it through table 
  27.     POP    DS        ; restore users segment 
  28.     RET            ; return far to caller 
  29. ENTRY    ENDP 
  30. ; 
  31.     DB    'Microsoft',00    ; name 
  32. MOUSEF    DB    0 
  33. ; 
  34. ROUTINES LABEL WORD 
  35.     DW    ISERIAL        ; function 0 = initialize mouse 
  36.     DW    BUTTONSTAT    ; function 1 = return button status 
  37.     DW    MOTIONCOUNT    ; function 2 = return relative motion 
  38.     DW    DSERIAL        ; function 3 = de-initialize mouse 
  39.     DW    GSERIAL        ; function 4 = return current serial port 
  40.     DW    RETADR        ; function 5 = reserved 
  41.     DW    RETADR        ; function 6 = reserved 
  42.     DW    RETADR        ; function 7 = reserved 
  43. ; 
  44. ; 
  45. BUTTONSTAT: 
  46.     SUB    AX,AX 
  47.     TEST    MOUSEF,0FFH    ; if no mouse then return zero 
  48.     JZ    BSTAT2 
  49.     MOV    AX,5         
  50.     SUB    BX,BX 
  51.     INT    MSYSCALL    ; Read button press info 
  52.     SUB    AH,AH        ; make ax contain press info 
  53. BSTAT2: 
  54. ; 
  55. ; for Microsoft mouse the exit routine does nothing 
  56. ; 
  57. DSERIAL: 
  58. RETADR: 
  59.     RET 
  60. ; 
  61. ; This routine returns delta mouse movement 
  62. ;    Ax = delta x 
  63. ;    Bx = delta y 
  64. ; 
  65. MOTIONCOUNT: 
  66.     SUB    AX,AX 
  67.     MOV    BX,AX 
  68.     TEST    MOUSEF,0FFH 
  69.     JZ    MCOUNT2 
  70.     PUSH    DX 
  71.     PUSH    CX 
  72.     MOV    AX,11 
  73.     INT    MSYSCALL 
  74.     MOV    AX,CX        ; place into appropriate 
  75.     MOV    BX,DX        ; registers 
  76.     POP    CX 
  77.     POP    DX 
  78. MCOUNT2: 
  79.     RET 
  80. ; 
  81. GSERIAL: 
  82.     SUB    AX,AX        ; No serial port needed 
  83.     RET            ; for Microsoft Mouse     
  84. ; 
  85. ISERIAL PROC    NEAR 
  86.     PUSH    ES 
  87.     PUSH    BX 
  88.     MOV    AX,03500h+MSYSCALL    ; 35h = get INTerrupt vector 
  89.     INT    MSDOS            ; returns in ES:BX 
  90.     MOV    AX,ES 
  91.     OR    AX,BX            ; Does interupt point at 0:0? 
  92.     MOV    AX,0            ; if it does then 
  93.     POP    BX            ; Mouse software is not loaded 
  94.     POP    ES            ; and therefore cannot be called 
  95.     JZ    SER2            ; to do initialization.  
  96.     INT    MSYSCALL 
  97. SER2: 
  98.     MOV    MOUSEF,AL 
  99.     RET                ; returns al non 0 if mouse exists. 
  100. ISERIAL    ENDP 
  101. ;
  102.